home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / Examples / Custom Classes / condClock.cls < prev    next >
Encoding:
Text File  |  1995-10-27  |  653 b   |  33 lines  |  [TEXT/ttxt]
  1. --<<<
  2. format debug "--  Compiling ConductorClock Class . . .\n" undefined undefined
  3.  
  4. class ConductorClock(Clock)
  5. inst vars
  6.     owner
  7. end
  8.  
  9. method init self {class ConductorClock} #rest args #key owner: ->
  10. (
  11.     apply nextMethod self args
  12.     self.owner := owner
  13. )
  14.  
  15. method gotoBegin self {class ConductorClock} ->
  16. (
  17.     self.time := 0
  18. )
  19.  
  20. method clockAdded self {class ConductorClock}  theMaster theSlave->
  21. (
  22.     nextMethod self theMaster theSlave
  23.     instrumentAdded self.owner theSlave
  24. )
  25.  
  26. method clockRemoved self {class ConductorClock}  theMaster theSlave->
  27. (
  28.     nextMethod self theMaster theSlave
  29.     instrumentRemoved self.owner theSlave
  30. )
  31.  
  32. #(ConductorClock,#("owner"),#())
  33.